home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
turtle-demo 7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
505b
|
25 lines
1 REM TURTLE-DEMO: 'BINAERBAUM'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
40 INPUT"BAUMGROESSE ........ 48[157][157][157][157]";LE
50 INPUT"KRUEMMUNG .......... 27[157][157][157][157]";AE
60 INPUT"REKURSIONSTIEFE .... 8[157][157][157]";EW
70 INPUT"DEKREMENT .......... 1.27[157][157][157][157][157][157]";DM
80 !GRAPHICS:!INIT:!PEN0:!BACK99:GOSUB100:!FINISH
100 IFLE<EWTHENRETURN
110 !TURNLAE:!PEN1:!WALKLE
120 !PUSHLE
130 LE=LE/DM
140 GOSUB100
150 !PULLLE
160 !PEN0:!BACKLE
170 !TURNRAE*2:!PEN1:!WALKLE
180 !PUSHLE
190 LE=LE/DM
200 GOSUB100
210 !PULLLE
220 !PEN0:!BACKLE
230 !TURNLAE
240 RETURN